Application对象表示Word应用程序本身,是Documents, Paragraphs, Range, Sentences, Words和Characters等其他对象的根对象。
code.vba
Sub Test()
Application.Visible = True
Dim docs As Documents
Set docs = Application.Documents
Debug.Print docs.Count
End Sub
app对象的ActiveDocument属性设置或返回当前活动文档对象,默认时,新添加或打开的文档自动成为当前活动文档。用鼠标单击某个Word文档,它也成为当前活动文档。用鼠标单击本章稿件文档,用文档对象的Name属性返回它的文件名称。
每个Word应用都是一个Word图形窗口,可以获取跟窗口相关的一些属性。
Left属性和Top属性的值定义窗口左上角点的横坐标和纵坐标,即定义窗口的位置。Width属性和Height属性的值定义窗口的宽度和高度,即定义窗口的大小。用Caption属性的值表示窗口的标题。用WindowState属性定义窗口的显示状态,包括3种状态,即窗口最小化、最大化和正常显示,其常数分别对应于wdWindowStateMinimize, wdWindowStateMaximize和wdWindowStateNormal,对应的值为2, 1和0。
code.vba
Sub Test2()
Debug.Print Application.Left
Debug.Print Application.Top
Debug.Print Application.Width
Debug.Print Application.Height
Debug.Print Application.Caption
Debug.Print Application.WindowState
Application.WindowState = wdWindowStateMaximize
End Sub